home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / RoundedRingSliceTest.wr_ / RoundedRingSliceTest.wr
Text File  |  1998-10-22  |  2KB  |  98 lines
  1. #VRML V2.0 utf8
  2.  
  3. EXTERNPROTO Blue [ exposedField SFFloat transparency ] "..\Appearances\PlasticMaterials.wrl#color19"
  4.  
  5. EXTERNPROTO em7_RoundedRingSlice [
  6.     exposedField SFNode appearance
  7.     field SFFloat height
  8.     field SFFloat radius
  9.     field SFFloat innerRadius
  10.     field SFFloat angle
  11.     field SFFloat bevelRadius
  12.     field SFFloat creaseAngle
  13.     eventIn SFFloat set_angle
  14.     eventIn SFFloat set_height
  15.     eventIn SFFloat set_radius
  16.     eventIn SFFloat set_innerRadius
  17. ] "..\VR_GRAPH.wrl#em7_RoundedRingSlice"
  18.  
  19.  
  20. EXTERNPROTO em7_Slider [
  21.     field SFFloat height
  22.     field SFFloat radius
  23.     field SFInt32 min
  24.     field SFInt32 max
  25.     field SFInt32 value
  26.     eventIn SFInt32 set_min
  27.     eventIn SFInt32 set_max
  28.     eventIn SFInt32 set_value
  29.     eventOut SFInt32 value_changed
  30. ] "..\VR_UI.wrl#em7_Slider"
  31.  
  32. EXTERNPROTO em7_ScaledSFFloat [
  33.     field SFFloat oldMin
  34.     field SFFloat oldMax
  35.     field SFFloat newMin
  36.     field SFFloat newMax
  37.     eventIn SFFloat set_oldMin
  38.     eventIn SFFloat set_oldMax
  39.     eventIn SFFloat set_newMin
  40.     eventIn SFFloat set_newMax
  41.     eventIn SFFloat set_value
  42.     eventOut SFFloat value_changed
  43. ] "..\VR_COMMON.wrl#em7_ScaledSFFloat"
  44.  
  45. EXTERNPROTO em7_SingleTypeConversion [
  46.     eventIn SFBool SFBoolValue
  47.     eventIn SFFloat SFFoatValue
  48.     eventIn SFInt32 SFInt32Value
  49.     eventIn SFString SFStringValue
  50.     eventOut SFBool SFBoolResult
  51.     eventOut SFFloat SFFloatResult
  52.     eventOut SFInt32 SFInt32Result
  53.     eventOut SFString SFStringResult
  54.     eventOut MFString MFStringResult
  55. ] "..\VR_COMMON.wrl#em7_SingleTypeConversion"
  56.  
  57. DEF SLICE em7_RoundedRingSlice {
  58.     appearance Blue {}
  59.     innerRadius 0.5
  60.         angle 1.57
  61. }
  62.  
  63. Transform {
  64.     translation -2.5 -0.5 1
  65.     rotation 0 0 1 -1.5708
  66.     children [
  67.         DEF SLIDER em7_Slider {
  68.             height 5
  69.             min 0
  70.             max 30
  71.             value 0
  72.         }
  73.     ]
  74. }
  75.  
  76. Transform {
  77.     translation 3 0 0
  78.     children [
  79.         DEF DISPLAY Text { }
  80.     ]
  81. }
  82.  
  83. DEF SCALE em7_ScaledSFFloat {
  84.     oldMin 0
  85.     oldMax 30
  86.     newMin 0.1
  87.     newMax 6.282
  88. }
  89.  
  90. DEF CONVERT em7_SingleTypeConversion {}
  91.  
  92.  
  93. ROUTE SLIDER.value_changed TO CONVERT.SFInt32Value
  94. ROUTE CONVERT.SFFloatResult TO SCALE.set_value
  95. ROUTE CONVERT.MFStringResult TO DISPLAY.set_string
  96. ROUTE SCALE.value_changed TO SLICE.set_angle
  97.  
  98.